Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/RIGHT.PAS

Pascal/Delphi Source File | 1980-01-01 | 880 b | 35 lines

{ --------------------------------
  RIGHT justify a string in a field
  -------------------------------- }
Function RIGHT ( S : AnyString;
                 N : Integer;
                 Pad : Char ) : AnyString;
                 { AnyString is Type string[255] }
begin
   Inline ( $1E/
            $8C/$D0/
            $8E/$C0/
            $8E/$D8/
            $8D/$BE/$09/$01/
            $8B/$46/$06/
            $88/$86/$08/$01/
            $8A/$4E/$08/
            $30/$ED/
            $8D/$76/$09/
            $01/$CE/
            $4E/
            $29/$C8/
            $77/$06/
            $8B/$4E/$06/
            $EB/$0C/$90/
            $8B/$C8/
            $8B/$46/$04/
            $FC/
            $F3/$AA/
            $8A/$4E/$08/
            $01/$CF/
            $4F/
            $FD/
            $F3/$A4/
            $1F/$5D);
end;